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INTRODUCTION 


The  program  is  called  -""ATTENLOSS^and  assumes  a table  (RANGE)  is 
filled  in  core  with  values  of  range  and  propagation  loss  in  sets  of  two. 
The  program  then  works  on  this  table  to  calculate  the  attenuation 
coefficient  (COEFF),  the  transitional  range  (INTERCEPT),  a table  of 
ranges  (RANGE  1),  and  a table  of  adjusted  propagation  loss  (ADJPRO). 
Additionally,  the  standard  error  of  estimate  (SEE)  and  the  standard 

error  of  the  regression  coefficient  (SERC)  are  calculated.  ^ 

err • 


MATH  MODEL 

The  equations  in  this  program  are  essentially  derived  from  the 
propagation  loss  equation  of  the  following  form: 

Pi.  — /O  loj  R s + Ho 

where : PL  = propagation  loss  in  DB. 
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R - range  in  yards. 

Ho  = 10  log  R9  - the  transitional  range  in  DB  or  the 
point  at  which  cylindrical  rather  than  spherical 
spreading  becomes  the  dominant  loss  mode. 


= attenuation  coefficient  in  DB/yard. 
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The  loss  equation  written  in  the  above  fashion  is  simply  the  equation 
for  a straight  line  where  Y«PL-lo)ogR  , the  adjusted  propagation 
loss  (ADJPRO),  andX8  R , the  range.  The  transitional  range  fa  is 
simply  the  Y intercept  and  0 ( , which  is  the  attenuation  coefficient, 
is  the  slope  of  the  line.  The  solution  for  *(  can  then  be  written  as: 

«”/»- 

where  = number  of  data  points 


Similarly: 


{X*2lY-ZxIXY 
n a}* 


in  DB 


An  estimate  of  the  "goodness  of  fit"  of  the  data  points  to  a straight 
line  approximation  may  be  made  by  calculating  the  standard  error  of 
estimate  of  the  data  points  about  the  straight  line  which  is  given  by: 

ccr  „ /xi«  Pi.  ♦JoJuftF  „ 2>8 

v n-a 

and  the  standard  error  of  the  regression  coefficient,  which  tests  the 
variability  of  the  attenuation  coefficient,  and  is  given  by: 


sekc « -1*£ 


In  DB 


MATH  DEVELOPMENT 


The  following  statements  list  the  solutions  to  the  above  equations 
in  the  manner  in  which  they  are  solved  in  the  program. 

1)  IR 

2)  ZRX 

3)  |0  i«9  ft 

4)  Pi.-  10  1*9  ft 

5)  ft  (Pi-  to  fc) 

6)  1R(PL-  10  /*3  ft) 

ADJPRO  7)  pi  - |0  loq  ft 

8)  X (.PI  - to  1*3  ft) 
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COEFF 


INTERCEPT 


SEE 


SERC 
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9)  <IR)‘ 

io)  «(!**) 

ID  r>(V?)-(tlt)% 

1?)  rR£(Pl.*l«,*SR) 

n)  nZ«Cn>-'* 

14)  nZR(n.-i»U9R.)-lHZ(fL-i»l^>t) 

15)  ntRlPL-l.  H >*<*«) 

16)  ERE  R(PL- 1° 

17)  er‘Kpl-'»  . oN 

18,  w '*»  1 V 


L9) 


SiSza}*-  *««<*-* u* 


20)  «■  ^ 

21 ) *t 

22)  •.*«•«. -PuwijR 

,3)  (*«♦«.-«■  + » '*s  «)* 

24)  £ (uB  + Ht-PL  + lt  Uq  R)* 

25)  £(<P  + )l**Pt+ft/«9 

26,  /rorijTiiT^pr+'rSjft)5/"-^ 

77)  /lRV 

28)  srf/jiR» 


PROCRAM  INPUTS 


The  program  computes  only  one  coefficient  per  pass  or  one  frequency 
at  a time.  An  area  of  core  called  "RANGE"  must  be  set  aside  and  filled 
in  the  following  manner: 
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Table  "RANGE” 

Cell  1 Range  (1)  in  hundreds  of  yards,  scaled  0 bits 
Cell  2 Propagation  Loss  (1)  in  DB,  scaled  3 bits 

Cell  3 Range  (2) 

Cell  4 Propagation  Loss  (2) 

Cell  5 Range  (3)  etc. 

The  range  and  propagation  ,loss  sets  do  not  have  to  be  in  any  particular 
order  and  the  range  may  be  either  positive  or  negative,  indicating  an 
opening  or  closing  run.  The  total  number  of  cell3  used  for  Table  "RANGE" 
is  set  into  cell  "LIMIT",  scaled  0 bits. 


PROGRAM  OUTPUTS 

The  following  are  program  outputs  (which  remain  in  core): 

COEFF  = Attenuation  coefficient  in  DB,  scaled  1 5D  bits. 
INTERCEPT  = Transitional  range  in  DB,  scaled  9D  bits. 

SEE  = Standard  error  of  estimate  in  DB,  scaled  9D  bits. 

SERC  = Standard  error  of  the  regression  coefficient  in 

DB/unit  range,  scaled  9D  bits. 

Table  ADJPRO,  adjusted  propagation  loss  and  range  in  the  following 
form: 

Cell  1 Range  (l)  in  kyds,  scaled  3 bits 
Cell  2 PL  -lOlog  R(l)  in  DB,  scaled  3 bits 
Cell  3 Range  (2) 

Cell  4 PL  -lOlog  R(2) . 

Cell  5 Range  (3)  etc. 

OPERATING  INSTRUCTIONS 

1)  Load  Table  "RANGE" 

2)  Set  "LIMIT"  to  number  of  values  in  table  "RANGE" 

3)  RJP  * ATTENLOSS 
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OTHER  PROGRAMS  REQUIRED  FOR  COMPILATION 
CONLOGIT  - Decibel  conversion  routine 
FLPARITH  - Floating  point  package 


CORE  REQUIREMENTS 
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1.  RANGS1  - Table  - Range  values  in  kiloynrds,  scaled  3 bits. 

2 

2.  QSUMR2  - Variable  - Q register  portion  of  floating  point  number  forZ.R  • 

3.  ASUMR2  - Variable  - A register  portion  of  floating  point  number  for  m2. 

4.  BANS3  - Table  - Bange-propagation  loss  values.  Range  in  hundreds  of 

yards,  propagation  loss  in  DB.  Range,  unsealed;  FL, 
scaled  3 bits. 

5.  SUMR  - Variable  - Sum  of  range  values  in  kyds.,  scaled  3 bite. 

6.  LIMIT  - Variable  - Total  number  of  values  to  be  processed  (range  plus 

propagation  loss),  scaled  0 bits. 

7.  NOP  - Variable  - Holds  count  of  total  number  of  values  processed,  scaled  0 bite. 

8.  MTEMP  - Variable  - Temporary  storage. 

9.  ASUMR1W  - Variable  - A register  portion  of  floating  point  quantity  for 

XR(PL  - 10  log  R). 

10.  QSUVHNW  - Variable  - Q register  portion  of  floating  point  quantity 

for  £R(FL  - 10  log  R). 

11.  ADJPR0  - Table  - Adjusted  propagation  loss  (PL  - 10  log  R)  in  DB, 

scaled  3 bits. 

12.  NW  - Variable  - Sum  of  adjusted  propagation  loss  X(PL  - lo  log  R)  in 

1IB,  scaled  3 bits. 

13.  ASUMR  - Variable  - A register  portion  of  floating  point  number  for  (JR)  • 

2 

14.  QSUMR  - Variable  - Q register  portion  of  flontine  point  number  for  (fR)  • 

15.  ADIVISOR  - Variable  - A register  portion  of  floating  point  number  for 

nClH2)  - (XR). 

16.  QDIVISOR  - Variable  - Q register  portion  of  floating  point  number  for 

nfcH2)  - (XR)2. 

17.  ANQP  - Variable  - A register  portion  of  floating  point  number  for  n. 

18.  QNOP  - Variable  - Q register  portion  of  floating  point  number  for  n. 

19.  ASUMR1  - Variable  - A register  portion  of  floating  point  number  for  IR. 

20.  QSUMR1  - Variable  - Q register  portion  of  floating  ooint  number  for  IR. 

21.  ASTT"  - Variable  - A register  portion  of  floating  point  number  for 

IRUFL  - 10  log  R). 
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22.  <$5TJBT  - Variable  - Q register  portion  of  floating  point  number  for 

IRX(PI  - 10  log  R). 

23.  CGOEPF  - Variable  - Attenuation  coefficient  in  DB/yd.,  scaled  15D. 

24.  QRRNV  - Variable  - Q register  portion  of  floating  point  number  for 

XRXR(FL  - 10  log  R). 

25.  AKRNV  - Variable  - A register  portion  of  floating  point  number  for 

{RXR(PL  - 10  log  R). 

26.  IlfflERCKFT  - Variable  - Transitional  range  in  DB,  scaled  9D. 

27.  DIF  - Variable  » X(rR  •**H0  - PL  ♦ 10  log  R)2,  scaled  3 bits. 

28.  LIMIT2  - Variable  - Total  number  of  range  (only)  values,  scaled  0 bits. 

29.  STH  . Variable  - K«R  ♦ Hq  - n ♦ 10  log  S)2/n  - a,  sealed  3 bits. 

30.  SB  - Variable  - Standard  error  of  estimate  In  SB,  scaled  9D. 

31.  SKRC  - Variable  - Standard  error  of  the  regression  coefficient  in 

DB/unlt  range,  scaled  9D. 

floating  Point  Arithmetic  Terms  (FLPARITH) 

1.  FLINT  - Inter  floating  point  accumulator. 

2.  FLAD  - Floating  point  add. 

3.  FLSB  - Floating  point  subtract. 

4.  FLMP  - Floating  point  multii&y. 

5.  FISV  - Floating  point  divide. 

6.  FLSTR  - Floating  point  store. 

?•  FIXFLT  - Fixed  point  to  floating  point  conversion. 

8.  FLT'TX  - Floating  point  to  fixed  point  conversion. 
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ATTNUl2l>wS 

STR*A*W ( ASUNH1 ) 

ATTu0i2ul0 

STR*Q*W  i uisLIMRl ) 

ATTN012015 

CL*A 

ATTNOl2o20 

ENT  *Q*W ( Nw ) 

ATTN0i2o25 

LSH*Ab*33 

ATTN0i20i0 

rjp*fixflt 

ATTimOi2o35 

ENT*(k*W(QsUMR1) 

ATTNOi2O40 

LNT*A*W(AsUMR1) 

ATTN  12045 

R JP*FLMP 

ATTN  l2ob0 

RJP*FLSTR 

ATTN0l2l 

STR*A*W(ASUBT)  " 'STORE  PARTS 

ATTN0122 

STR*6l*rt(QsUBT) 

Ml TNO i2 j 

ent*q*w(onop) • "Total  number  of  range  pts  in  flt  pt 

ATTN0i2n 

ENT*A*W(AnOP) 

ATTiMOi2b 

RJP*FLENT* * ’SET  IN  FLT  PT  REGISTER 

AlTNOl2b 

ENT*A*W(ASUMRNW) * • *SET  NSUMR(NW-IOLOGR)  To  A AND  Q 

ATTN012/ 

ENT  *Q*M ( QsUMHNW ) 

ATTNOl2t» 

RJP*FLMP» ♦ *NSUMR(nW-10LOGR)  IN  FLT  PT  REGISTER 

ATTNOi29 

ENT *A*W  ( AbUbT ) " ' SET  SUMRSUM ( NW-1 OLOGR ) To  A AND  Q 

ATTNOlSo 

ENT  *Q*W ( QSUBT ) 

ATTNOiJi 

RjP*FLSB' • *NSUMR(NW-10LOGR)-SUMRsuM(NW-10lOGR)  IN  FP 

ATTNOii^ 

£NT*A*W(AOl VISOR) * » «NSUMR(SQ, )-(SUMR)SQ. 

ATTNO j3j 

ENT->Q*W(OoI  VISOR) 

AlTuOl34 

RJP*FLDV' • 'ATTEN  COfcFF  IN  FLT  PT  REGISTER 

ATTNOl3i, 

RJP*FLTFIX' "SET  VALUE  TO  A AND  Q SC  300 

ATTNOl3b 

RSH*AQ*17»  * 'ATTEN  CoEFF  SC  15D  SET  IN  Q 

ATTn0j3 / 

STR*Q*W(CoEFF)  ' "STORE 

AT  TNO  1 3o 

ENT*A*0"  ' INITIALIZE 

ATTN0139 

ENT*Q*W(SuMK) 

AlTNOi^u 

LSH*AU*03' "SET  OCTAL  PT 

ATTNOi4i 

RUP*FIXFLT'  "CONVERf  JO  FLT  PT 

ATTnOi4*; 

ENT*A*W  ( ASUMKNW)  • • ' 3 JMR ( NW-10LOGR ) jo  A AnD  Q 

ATTNOl4,> 

ENT*U*W ( QsUMRNW ) 

ATTN0144 

RJP^FLMP* • 'SUMRSUMR(NW-IOLOGR) 

ATTN014S 

RJP^FLSIR* * *SET  To  A AND  Q 

ATTNOl46 

STH*U*W(QRRNW)  " 'STOKE  PARTS 

ATTN014/ 

STR*A*W ( AkRNw ) 

ATTNOi4b 

ENT*A*0"  * INITIALIZE 

ATTN0i4y 

ENT  *G*M  (Ntf  ) » "SUM(N^i-lOLOGR) 

ATTNOlSu 

LSH*AQ*33*"SET  OCTal  PT 

ATT^Olbi 

RJP*FIXFLT' "CONVERT  TO  FLT  PT 

ATTNOl5c 

ENT*G*rf(Qt,UMR2)  * ' •S  jMRtSC.  ) IN  FLT  PT  TO  A ANO  0 

ATTiMOlbj 

ENT  *A*W ( ASUMR2 ) 

A1  TimOi54 

RjP*FLMP« * •SUMR(SG.)SUM(NW-1UL0GR)  IN  FLT  PT 

aTTN0i5j 

ENT*A*W(  ArRNw)  ' " SU.lKbUMR  ( Na-IOLOGR  ) 

ATT^Olbb 

ENT  *G*W l liRRNw ) 

ATTNOl5 / 

R JP*FLSb • • » SUMN ( SO ) ;,UM ( NW-1 OLOGR ) -SUMRSUMR (NW-1 OLOGR 

ATTNOiba 

ENT*A* W l A(jl  V ISOR  ) • • *NSUMR(SCI)-(SUMR)SQ 

A f TisU  x 5»s» 

ENT  «G*W ( QDl VISOR ) 

AlTNOi6u 

RjP*FLDV  • * • 1 MANSI Tl oN  RANGE  IN  r'LT  PT  REGISTER 

AT  TuO|f>i 
A I TNU lbt 
ATTNOlbJ 
A1  TNU 16* 

ATTNOlb^ 

ATTNOioo 
ATTNOlb / 

ATTNOioo 
ATTN016V 
AlTN0l7o 
ATTn  l7i 
ATTN  17 t LiM 
AUN0l7j 
ATTN  i7»* 

ATTN0l7s 

ATTN0i7o 

ATTn  177 

ATTN0l7b 

ATTN  i79 

ATTn  17905 

ATTNOlBvJ 

ATTNOifli 

ATTNOifli 

ATTN0i8,j 

ATTNO J84 

ATTNOlBs 

ATTnOiBo 

ATTNOlB/ 

ATTNOlBa 

ATTNO189 

ATTn0j9o 

ATTN0l9i 

ATTN0l9<> 

ATTN0i9i 

ATTN0194 

ATTN0l93 

ATTNOi9o 

ATTN0197 

ATTN0i97y5 

ATTN019/10 

ATTN0i9715 

ATTN0i9720 

ATTN0i97ii5 

ATTN0l9/iO 

ATTn0i9o 

ATTnCi99 

ATTNO^OO 

ATTNOiOl  RaNGE 

ATTN020*:  RaNGEI 

ATTNO^Oj  AuJPRO 

attno^o** 


NlE'l,  T>'fih  Mfmo 
P?] 1-10-70 

Rv>P*FLTFIx" 'CONVERT  TO  FIXED  POINT  SC  3oD 
RSH*Au*4lS*  "TRANS,  RANGE  SC  9 
si r*u*w i intercept  > ♦ * *store 
si  r*bo*«»(jif)  "'initialize 

RPL*Y*1*W  (LIMIT)  • "RESTORE  VALUE 
STR*A*Q 

ENT*A*0"  • INITIALIZE 
L»IV*2 

STR*Q*W(LIMIT2) • ' 'STORE 
RPL*Y-i**(LIMlT2)  " *SET  BSK  VALUE 
LNT*B2*0 

ENT*Q*W(RaNGEI*B2) 

MUL*W(C0EfF)  • "PREDICTED  AR  SC  18D 
RSH*AW*90 

ADD*Q*W ( INTERCEPT) • "AR+H  SC  9 (PREDICTEO) 

HSH*Q*b' "AR+H  SC  J 
£NT*A*W(ADJPR0+B2) 

STR*A-Q*Q»  "UlF 
STR*Q*«(MTEMP) 

MUL*W(MTEmP) 

ADD*Q*W(OiF)  • "SUM  VALUES 
STR*Q*W(DlF)  " 'STORE  SC  6 
bSK*Bl**<LlMIT2>  " 'COMPLETE  SUM 
JP*LIM"  'NO 
ENT*A*W(LlMIT2> 

SUB»A*1"  *N-2 
ENT*Q*W(DIF) 

STR*A**(MtEMP)  " »TEm.  STORE  N-2 
ENT*A*o*  "PREPARE  Tu  DIVIDE 
LSH*AQ*15D 

DIVowtMTEMP)  " 'DIF/n-2  sc  18D 
STR*Q*W(SyN) 

SORT 

STR*Q*W(SeE)  " 'STAN,  ERROR  OF  ESTIMATE  Sc  9 
ENT*A*W(ASUMR2) 

ENT*Q*W(QsUMR2) 

RJP*FLENT 

RJP*FLTFlx 

RSH*AO*30J 

SORT 

STR*0*W(MTEMP) 

ENT*0*W(SyN) 

ENT*A*0 
DIV*W  IMTEmP) 

SORT 

STR*U*W(SERC) " 'STAN.  ERROR  OF  REC-.  COEFF.  SC  15D 
RETURN 

RESERVE*10000 

RESERVE»5000 

RESERVE*5000 

END-PROC^aTTLNLOSS 


